﻿
Imports std

Public Class IDREFS
    Protected _value As vector(Of IDREF) = Nothing

    Public Sub clear()
        _value.clear()
    End Sub

    Public Sub insert(ByRef newIDREF As IDREF)
        _value.push_back(newIDREF)
    End Sub

    Public Overrides Function ToString() As String
        Dim i As Int32
        Dim rtn As String = emptyString

        For i = 0 To _value.size() - 2
            rtn += _value(i).ToString() + Global.character.blank
        Next
        If i < _value.size() Then
            rtn += _value(i).ToString()
        End If

        Return rtn
    End Function

    Public Sub New()
        _value = New vector(Of IDREF)
    End Sub
End Class
